Imports System.Xml.Serialization
Imports System.Runtime.Serialization

<DataContract()> _
Public Class Concept

    <DataMember()> _
    Public ConceptId As Guid = Guid.Empty
    <DataMember()> _
    Public ConceptLSID As String = ""
    <DataMember()> _
    Public TaxonName As String = ""
    <DataMember()> _
    Public TaxonNameId As Guid = Guid.Empty
    <DataMember()> _
    Public AccordingTo As String = ""
    <DataMember()> _
    Public AccordingToId As Guid = Guid.Empty
    <DataMember()> _
    Public ChangeDate As DateTime = DateTime.MinValue
    <DataMember()> _
    Public ChangeUser As String = ""

    <System.ServiceModel.OperationContract()> _
    Public Shared Function CreateLSID(ByVal conceptId As Guid) As String
        Dim lsid As String = ""
        If conceptId <> Guid.Empty AndAlso conceptId.ToString.Length > 0 Then
            lsid = "urn:lsid:" + NamesGlobal.LSIDAuthorityText + ":concept:" + conceptId.ToString.ToLower()
        End If
        Return lsid
    End Function
End Class
